********************************************
* NAMA : KASMO ADIYANTO			   *
* EMAIL: kasmoadiyanto@gmail.com	   *
*	 kasmoadiyanto@yahoo.co.id	   *
*	 momo_ch410@yahoo.com		   *
* Blog : http:\\adiyantokasmo.blogspot.com *
********************************************

program cetak_angka_ganjil;
uses crt;
var
k,a : integer;
begin
clrscr;
a := 1;
for k:=1 to 100 do begin
if k mod 2 = 1 then
write (k:5);
end;
readln;
end.

     .